home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / LAN3000.SRP < prev    next >
Text File  |  1996-06-04  |  968b  |  61 lines
  1. rem Copyright (c) PhoneLink Data plc 
  2. rem EICON (10/8/95)
  3. label InitDevice
  4. echo off
  5. echo script[55]
  6. send    "char(16)char(13)"
  7. timeout 5,pad_fail
  8. find    "PAD>"
  9. send    "set 1:1,2:0,3:2,4:1,5:1,15:0char(13)"
  10. timeout 5,pad_set_fail
  11. find    "PAD>"
  12. label OffToGate 
  13. echo off
  14. echo script[51]
  15. send    "char(16)char(13)"
  16. timeout 5,pad_fail
  17. find    "PAD>"
  18. echo script[53]
  19. send    "{NUA}char(13)"
  20. timeout 5,nua_fail
  21. finderr 0,COM,nua_good
  22. find    "ZZZ"
  23. label nua_good
  24. echo script[54]
  25. end
  26.  
  27. label GateToOff 
  28. echo off
  29. send    "char(16)CLRchar(13)"
  30. echo script[92]
  31. timeout 5,clear_fail
  32. finderr 0,CLR ERR,error_clear
  33. finderr 0,CLR PAD,pad_clear
  34. find    "CLR CONF"
  35. echo script[99].
  36. end
  37.  
  38. label pad_fail
  39. echo script[4]
  40. abort
  41.  
  42. label pad_set_fail
  43. echo script[5]
  44. abort
  45.  
  46. label nua_fail
  47. echo script[22]
  48. abort
  49.  
  50. label clear_fail
  51. echo script[13]
  52. abort
  53.  
  54. label error_clear
  55. echo script[10]
  56. abort
  57.  
  58. label pad_clear
  59. echo script[11]
  60. abort
  61.